home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 49 / Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso / -serious- / misc / shellscr / install-shellscr < prev    next >
Text File  |  1999-11-30  |  7KB  |  244 lines
  1. ; this installer script was originally written by Kyzer, but Sönke Tesch
  2. ; wrote 'cleverer' selection of the catalogs and guide to install along
  3. ; with the localised strings.
  4.  
  5. ; default-strings - english
  6. (set #askdir (cat
  7.   "Where would you like " @app-name " installed?\n"
  8.   "No extra drawer will be created."
  9. ))
  10.  
  11. (set #askcatlang "Which catalog would you like to install?")
  12. (set #askdoclang "Which guide would you like to install?")
  13. (set #askdocdir  "Where would you like to install the guide?")
  14. (set def-guide-lang 0)
  15. (set def-cat-lang 0)
  16.  
  17. ; translations
  18. (if (= @language "czech")
  19.  (
  20.   (set #askdir (cat
  21.     "Kam chcete " @app-name " nainstalovat?\n"
  22.     "Adresáê NEBUDE vytvoêen."
  23.     )
  24.   )
  25.   (set #askcatlang "Který z lokalizaçních katalogû chcete nainstalovat?")
  26.   (set #askdoclang "Který z pêeloùených dokumentû typu .guide chcete nainstalovat?")
  27.   (set #askdocdir  "Kam chcete dokumentaci nainstalovat?")
  28.   (set def-cat-lang 1)
  29.  )
  30. )
  31.  
  32. (if (= @language "dansk")
  33.  (
  34.   (set #askdir (cat
  35.     "Hvor ønsker du " @app-name " installeret?\n"
  36.     "Der vil ikke blive oprettet et nyt katalog."
  37.     )
  38.   )
  39.   (set #askcatlang "Hvilken oversættelse ønsker du at installere?")
  40.   (set #askdoclang "Hvilken dokumentation ønsker du at installere?")
  41.   (set #askdocdir  "Hvor ønsker du at installere dokumentationen?")
  42.   (set def-cat-lang 2)
  43.  )
  44. )
  45.  
  46. (if (= @language "deutsch")
  47.  (
  48.   (set #askdir (cat
  49.     "Wo soll " @app-name " installiert werden?\n"
  50.     "Es wird keine neue Schublade angelegt."
  51.     )
  52.   )
  53.   (set #askcatlang "Welcher Katalog soll installiert werden?")
  54.   (set #askdoclang "Welche Anleitung soll installiert werden?")
  55.   (set #askdocdir  "Wo soll die Anleitung installiert werden?")
  56.   (set def-guide-lang 1)
  57.   (set def-cat-lang 3)
  58.  )
  59. )
  60.  
  61.  
  62. (if (= @language "español")
  63.  (
  64.   (set #askdir (cat
  65.     "¿Dónde desea instalar " @app-name "?\n"
  66.     "No se creará ningún directorio."
  67.     )
  68.   )
  69.   (set #askcatlang "¿Qué catálogo desea instalar?")
  70.   (set #askdoclang "¿Qué guía desea instalar?")
  71.   (set #askdocdir  "¿Dónde desea instalar la guía?")
  72.   (set def-cat-lang 4)
  73.  )
  74. )
  75.  
  76. (if (= @language "greek")
  77.   (set def-cat-lang 5)
  78. )
  79.  
  80. (if (= @language "italiano")
  81.  (
  82.   (set #askdir (cat
  83.     "Dove desideri installare " @app-name " ?\n"
  84.     "Non sarà creato alcun nuovo cassetto."
  85.     )
  86.   )
  87.   (set #askcatlang "Quale catalogo desideri installare?")
  88.   (set #askdoclang "Quale documentazione desideri installare?")
  89.   (set #askdocdir  "Dove desideri installare la documentazione?")
  90.   (set def-guide-lang 2)
  91.   (set def-cat-lang 6)
  92.  )
  93. )
  94.  
  95. (if (= @language "magyar")
  96.  (
  97.   (set #askdir (cat
  98.     "Hova szeretnéd telepíteni a következõ programot: "@app-name "?\n"
  99.     "Új könyvtárat nem hozok létre."
  100.     )
  101.   )
  102.   (set #askcatlang "Melyik katalógust szeretnéd telepíteni?")
  103.   (set #askdoclang "Melyik guide-ot szeretnéd telepíteni?")
  104.   (set #askdocdir  "Hova telepítenéd a guide-ot?")
  105.   (set def-cat-lang 7)
  106.  )
  107. )
  108.  
  109. (if (= @language "norsk")
  110.   (set def-cat-lang 8)
  111. )
  112.  
  113. (if (= @language "português")
  114.  (
  115.   (set #askdir (cat
  116.     "Onde quer instalar o " @app-name "?\n"
  117.     "Não será criado um novo directório."
  118.     )
  119.   )
  120.   (set #askcatlang "Que catálogo quer instalar?")
  121.   (set #askdoclang "Que guia quer instalar?")
  122.   (set #askdocdir  "Onde quer instalar o guia?")
  123.  
  124.   (set def-guide-lang 3)
  125.   (set def-cat-lang 9)
  126.  )
  127. )
  128.  
  129. (if (= @language "português-brasil")
  130.  (
  131.   (set #askdir (cat
  132.     "Onde deseja que " @app-name " seja instalado?\n"
  133.     "Nenhuma gaveta será criada."
  134.     )
  135.   )
  136.   (set #askcatlang "Qual catálogo deseja instalar?")
  137.   (set #askdoclang "Que guide deseja instalar?")
  138.   (set #askdocdir  "Onde deseja que o guide seja instalado?")
  139.   (set def-cat-lang 10)
  140.  )
  141. )
  142.  
  143. (if (= @language "russian")
  144.  (
  145.   (set #askdir (cat
  146.     "çÄÅ ÷Ù ÖÅÌÁÅÔÅ ÕÓÔÁÎÏ×ÉÔØ " @app-name "?\n"
  147.     "äÏÐÏÌÎÉÔÅÌØÎÙÊ ËÁÔÁÌÏÇ ÎÅ ÂÕÄÅÔ ÓÏÚÄÁ×ÁÔØÓÑ."
  148.     )
  149.   )
  150.   (set #askcatlang "ëÁËÏÊ ÑÚÙË × ÐÒÏÇÒÁÍÍÅ ÷Ù ÖÅÌÁÅÔÅ ÕÓÔÁÎÏ×ÉÔØ?")
  151.   (set #askdoclang "òÕËÏ×ÏÄÓÔ×Ï ÎÁ ËÁËÏÍ ÑÚÙËÅ ÷Ù ÖÅÌÁÅÔÅ ÕÓÔÁÎÏ×ÉÔØ?")
  152.   (set #askdocdir  "ëÕÄÁ ÷Ù ÈÏÔÉÔÅ ÐÏÍÅÓÔÉÔØ ÒÕËÏ×ÏÄÓÔ×Ï?")
  153.  
  154.   (set def-guide-lang 4)
  155.   (set def-cat-lang 11)
  156.  )
  157. )
  158.  
  159. (if (= @language "slovensko")
  160.  (
  161.   (set #askdir (cat
  162.     "Kam bi radi namestili " @app-name "?\n"
  163.     "Poseben predal ne bo ustvarjen."
  164.     )
  165.   )
  166.   (set #askcatlang "Kateri katalog bi radi namestili?")
  167.   (set #askdoclang "Kateri priroènik bi radi namestili?")
  168.   (set #askdocdir  "Kam bi radi namestili priroènik?")
  169.   (set def-guide-lang 5)
  170.   (set def-cat-lang 12)
  171.  )
  172. )
  173.  
  174. (if (= @language "srpski")
  175.   (set def-cat-lang 13)
  176. )
  177.  
  178. (if (= @language "suomi")
  179.  (
  180.   (set #askdir (cat
  181.     "Mihin haluat ohjelman " @app-name " asennettavan?\n"
  182.     "Asennuksessa ei tehdä erillistä hakemistoa."
  183.     )
  184.   )
  185.   (set #askcatlang "Minkä kielen katalogin haluat asentaa?")
  186.   (set #askdoclang "Minkä kielisen guide-tiedoston haluat asentaa?")
  187.   (set #askdocdir  "Mihin haluat guide-tiedoston asennettavan?")
  188.   (set def-guide-lang 6)
  189.   (set def-cat-lang 14)
  190.  )
  191. )
  192.  
  193.  
  194. ; the actual installation
  195.  
  196.  
  197. ; ask where to install the program (default SYS:Utilities)
  198. (complete 0)
  199. (set @default-dest (askdir (help @askdir-help) (prompt #askdir) (default "SYS:Utilities")))
  200.  
  201. ; ask where to install the guide (default HELP:<language>)
  202. (complete 20)
  203. (set guide-dest (askdir (help @askdir-help) (prompt #askdocdir) (default (cat "HELP:" @language))))
  204.  
  205. ; ask which guide to install
  206. (complete 40)
  207. (set guide-lang (askchoice (help @askchoice-help) (prompt #askdoclang)
  208.                            (choices "English" "Deutsch" "Italiano" "Português" "Russian" "Slovensko" "Suomi")
  209.                            (default def-guide-lang)
  210.                 )
  211. )
  212.  
  213. ; ask which catalog to install
  214. (complete 60)
  215. (set cat-lang (askchoice (help @askchoice-help)
  216.                          (prompt #askcatlang)
  217.                          (choices "English" "Çeîtina" "Dansk" "Deutsch" "Español" "Greek" "Italiano" "Magyar"
  218.                                   "Norsk" "Português" "Português (Brasil)" "Russian" "Slovensko" "Srpski" "Suomi")
  219.                          (default def-cat-lang)
  220.               )
  221. )
  222.  
  223. ; install the program
  224. (complete 80)
  225. (copyfiles (source "ShellScr") (dest @default-dest) (infos) (noposition))
  226.  
  227. ; install the guide
  228. (complete 90)
  229. (copyfiles (source (cat "docs/" (select guide-lang "ShellScr_english.guide" "ShellScr_german.guide" "ShellScr_italian.guide" "ShellScr_russian.guide" "ShellScr_slovenian.guide" "ShellScr_finnish.guide")))
  230.            (dest guide-dest) (infos) (noposition)
  231. )
  232.  
  233. ; install the catalog
  234. (if (> cat-lang 0)
  235.  (
  236.   (complete 95)
  237.   (set locale (select (- cat-lang 1) "czech" "dansk" "deutsch" "español" "greek" "italiano" "magyar"
  238.                         "norsk" "português" "português-brasil" "russian" "slovensko" "srpski" "suomi"))
  239.   (copyfiles (source (cat "Catalogs/" locale "/ShellScr.catalog")) (dest (cat "LOCALE:Catalogs/" locale)) )
  240.  )
  241. )
  242.  
  243. (complete 100)
  244.